home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
XFINDSTR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-07
|
266b
|
16 lines
{$IBoDecl}
{$IFindStr}
{$IGetStr}
{$IPutStr}
BEGIN
Randomize;
ClrScr;
PutStr (v,'I AM VERTICAL',Random(80)+1,1,7);
findStr ( 1,1 ,'I',0,Ecode);
GetStr (v,S,0,0,13);
read;
insert ('NO LONGER ',S,6);
PutStr (h,S,1,15,14);
END.